-- card: 4429 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Scan
----- HyperTalk script -----
on idle
  global port
  put the time into field 4
  if SPortHasChar(port) then
    put empty into reslts
    repeat 3
      put recvUpTo(port,return,2,false,false) into newIn
      put newIn after reslts
    end repeat
    if "[H]"is in reslts then pop card
    if the length of reslts >0 then
      put reslts after card field 1
      put the rect of card field 1 into fieldRect
      put ( item 3 of fieldRect) - 5 into horizCoord
      put (item 4 of fieldRect) - 17 into vertCoord

      click at horizCoord,vertCoord
    end if
    if reslts contains "completed" then beep
  end if
end idle

on closecard
  put empty into card field 1
end closecard

on opencard
  put empty into card field 1
end opencard


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=2 top=64 right=314 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=43 top=318 right=341 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"n"&return
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=397 top=38 right=62 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit/Done
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"q"&return
  pop card
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=3 top=318 right=341 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yes
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"y"&return
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=91 top=318 right=340 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cont.
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"c"&return

end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=146 top=318 right=340 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"n"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=201 top=318 right=340 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Again
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"p"&return

end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=256 top=318 right=340 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reply
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"r"&return

end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=311 top=318 right=340 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"d"&return

end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=366 top=318 right=340 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Undel.
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"u"&return

end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=421 top=318 right=340 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Observe
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"o"&return

end mouseUp



-- part contents for background part 5
----- text -----
12:05 AM

-- part contents for background part 1
----- text -----





Thu, Jul 7, 1988, 4:22 PM
Sat, Sep 24, 1988, 12:05 AM

-- part contents for background part 4
----- text -----
Mon, Sep 19, 1988

-- part contents for background part 3
----- text -----
Thu, Sep 8, 1988, 8:09 PM